home *** CD-ROM | disk | FTP | other *** search
/ Die Speccy' 97 / Die Speccy' 97.iso / amiga_system / the_aminet / comm / misc / phonecall21a.lha / PhoneCall2.1a / Install_Deutsch < prev    next >
Text File  |  1995-10-07  |  14KB  |  423 lines
  1. ; $VER: Install_PhoneCall 2.5 (23.09.95)
  2. ; Install script for PhoneCall on Workbench 2.1 or higher
  3.  
  4. ;========================================================
  5. ; English strings
  6.  
  7. (set default_lang 256)
  8.  
  9.   (set #msg-bad-kick          (cat "\nYou have to use at least\nAmigaOS 2.04\nto use PhoneCall."))
  10.   (set #msg-pcalldest         (cat "Please select the path where to install PhoneCall. A drawer 'PhoneCall' will be created."))
  11.   (set #msg-abort             "File \"PhoneCall\" already exists.")
  12.   (set #msg-existMsg          (cat "\n\nThere already exists a copy of `PhoneCall'. "
  13.                               "If you proceed, existing files will be updated. Your phonebook "
  14.                               "will be leaved untouched."))
  15.   (set #msg-destdir           (cat "Please select the path where to install the main program\n'PhoneCall'."
  16.                               "\nWBStartup, f.e."))
  17.   (set #msg-copypc            "\nCopying PhoneCall to\n")
  18.   (set #msg-askicon           "Please, select an program-icon to install.\n")
  19.   (set #msg-icon1             "MagicWB standard icon")
  20.   (set #msg-icon2             "MagicWB icon by Jodel (Schneider)")
  21.   (set #msg-icon3             "ROM Icon (grey) by Roman Patzner")
  22.   (set #msg-icon4             "ROM Icon (brown) by Roman Patzner")
  23.   (set #msg-icon5             "NewIcon")
  24.   (set #msg-installIcon       "Installing %s...")
  25.   (set #msg-askdoc            "Please select the manual(s) to install.\n")
  26.   (set #msg-guidedoc          "German AmigaGuide manual")
  27.   (set #msg-dvidoc            "German DVI manual")
  28.   (set #msg-txtdoc            "German manual (ASCII)")
  29.   (set #msg-installguide      "Installing amigaguide manual...")
  30.   (set #msg-installdvi        "Installing DVI manual...")
  31.   (set #msg-installtxt        "Installing ASCII manual...")
  32.   (set #msg-asklanguage       "Which language catalog(s) do you want to install?")
  33.   (set #msg-language0         "english (built-in)")
  34.   (set #msg-language1         "german")
  35.   (set #msg-language2         "franτais")
  36.   (set #msg-languagehelp      (cat "If you are using a version of the AmigaOS which "
  37.                               "does not support localization, please do not install "
  38.                               "a catalog file.\n\n "
  39.                               "The english built-in language does not require "
  40.                               "a catalog file."))
  41.   (set #msg-installlanguage1  "Installing german catalog for PhoneCall...")
  42.   (set #msg-installlanguage2  "Installing franτais catalog for PhoneCall...")
  43.   (set #msg-askonline         "Which onlinehelp(s) do you want to install?")
  44.   (set #msg-onlinehelp        (cat "If you are using a version of the AmigaOS which "
  45.                               "does not support localization, please do not install "
  46.                               "onlinehelp(s)."))
  47.   (set #msg-installonline1    "Installing german onlinehelp for PhoneCall...")
  48.   (set #msg-installonline2    "Installing franτais online-help for PhoneCall...")
  49.   (set #msg-asktextfield      (cat "\nDo you want to install the\n\nTextField.gadget Version %ld.%ld\n"
  50.                               "\ninto 'SYS:Classes/Gadgets'?\n"
  51.                               "\nYour current version is %ld.%ld\n\n"))
  52.   (set #msg-textfieldhelp     "Installs the TextField.gadget in your 'SYS:Classes/Gadgets' directory.")
  53.   (set #msg-installtextfield  "\nInstalling TextField.gadget...\n")
  54.   (set #msg-installpb         "\nInstalling initial PhoneCall phonebook...\n")
  55.   (set #msg-bye               "Have fun with PhoneCall\nPlease, support the idea of shareware!")
  56.   (set #msg-docdir            "Manual")
  57.  
  58. ;========================================================
  59. ; German strings
  60.  
  61. (if (= @language "DEUTSCH")
  62.  (
  63.   (set default_lang 1)
  64.  
  65.   (set #msg-bad-kick          (cat "\nSie mⁿssen mindestens\nAmigaOS 2.04\nhaben, wenn Sie PhoneCall benutzen m÷chten."))
  66.   (set #msg-pcalldest         (cat "WΣhlen Sie wohin `PhoneCall' installiert werden soll.\nEin Verzeichnis 'PhoneCall' wird automatisch angelegt."))
  67.   (set #msg-abort             "Es ist bereits eine Datei mit dem Namen \"PhoneCall\" vorhanden.")
  68.   (set #msg-existMsg          (cat "\n\nEine Kopie von `PhoneCall' existiert bereits. "
  69.                                "Wenn Sie fortfahren, wird diese erneuert. Weitere Dateien "
  70.                                "werden ⁿberschrieben (Ihr Telefonbuch bleibt unverΣndert)."))
  71.   (set #msg-destdir           (cat "WΣhlen Sie ein Verzeichnis in welches das Hauptprogramm\n'PhoneCall' installiert werden soll."
  72.                                "\nz.B. WBStartup ..."))
  73.   (set #msg-copypc            "\nKopiere PhoneCall zu \n")
  74.   (set #msg-askicon           "WΣhlen Sie das Programm-Icon aus, welches Sie installieren m÷chten.\n")
  75.   (set #msg-icon1             "MagicWB Standard Icon")
  76.   (set #msg-icon2             "MagicWB Icon von Jodel (Schneider)")
  77.   (set #msg-icon3             "ROM Icon (grau) Roman Patzner")
  78.   (set #msg-icon4             "ROM Icon (brau) Roman Patzner")
  79.   (set #msg-icon5             "NewIcon")
  80.   (set #msg-installIcon       "Installiere das %s...")
  81.   (set #msg-askdoc            "WΣhlen Sie die Dokumentation(en) aus, die Sie installieren m÷chten.\n")
  82.   (set #msg-guidedoc          "deutsche AmigaGuide Anleitung")
  83.   (set #msg-dvidoc            "deutsche DVI-Anleiting")
  84.   (set #msg-txtdoc            "deutsche Anleitung in ASCII")
  85.   (set #msg-installguide      "Installiere AmigaGuide Anleitung...")
  86.   (set #msg-installdvi        "Installiere DVI Anleitung...")
  87.   (set #msg-installtxt        "Installiere ASCII Anleitung...")
  88.   (set #msg-asklanguage       "Welche Sprache(n) m÷chten Sie installieren?")
  89.   (set #msg-language0         "english (eingebaut)")
  90.   (set #msg-language1         "deutsch")
  91.   (set #msg-language2         "franz÷sisch")
  92.   (set #msg-languagehelp      (cat "Wenn Sie eine Version des AmigaOS besitzen, "
  93.                                "die keine Lokalisierung unterstⁿtzt, "
  94.                                "installieren Sie bitte keine Sprache.\n\n "
  95.                                "Die in PhoneCall eingebaute englische Sprache "
  96.                                "ben÷tigt keinen Katalog! "))
  97.   (set #msg-installlanguage1  "Installiere deutschen Katalog fⁿr PhoneCall...")
  98.   (set #msg-installlanguage2  "Installiere franz÷sischen Katalog fⁿr PhoneCall...")
  99.   (set #msg-askonline         "Welche OnlineHilfe(n) wollen Sie installieren?")
  100.   (set #msg-onlinehelp        (cat "Wenn Sie eine Version des AmigaOS besitzen, "
  101.                                "die keine Lokalisierung unterstⁿtzt, "
  102.                                "installieren Sie bitte keine Online-Hilfe.\n\n "))
  103.   (set #msg-installonline1    "Installiere deutsche Online-Hilfe fⁿr PhoneCall...")
  104.   (set #msg-installonline2    "Installiere franz÷sische Online-Hilfe fⁿr PhoneCall...")
  105.   (set #msg-asktextfield      "M÷chten Sie das\n\nTextField.gadget Version %ld.%ld\n\nin das 'SYS:Classes/Gadgets' Verzeichnis installieren ?\n\nDie aktuelle Version ist %ld.%ld\n\n")
  106.   (set #msg-textfieldhelp     "Installiert die mitgelieferte Version des TextField.gadget in das 'SYS:Classes/Gadgets' Verzeichnis, wenn Sie m÷chten.")
  107.   (set #msg-installtextfield  "\nKopiere das TextField.gadget...\n")
  108.   (set #msg-installpb         "\nKopiere eine PhoneCall BasisDatei...\n")
  109.   (set #msg-bye               "Viel Spa▀ mit PhoneCall\nBitte unterstⁿtzen Sie die Idee der Shareware !")
  110.   (set #msg-docdir            "Anleitung")
  111.  )
  112. )
  113. ;========================================================
  114.  
  115.  (complete 0)
  116.  (welcome)
  117.  
  118.  (set currentver (/ (getversion "SYS:Classes/Gadgets/textfield.gadget") 65536))
  119.  (set currentrev (BITAND (getversion "SYS:Classes/Gadgets/textfield.gadget") 65535))
  120.  (set myver      (/ (getversion "Classes/Gadgets/textfield.gadget") 65536))
  121.  (set myrev      (BITAND (getversion "Classes/Gadgets/textfield.gadget") 65535))
  122.  
  123.  (if (< (/ (getversion) 65536) 37)
  124.    (abort #msg-bad-Kick)
  125.  )
  126.  
  127. (set pcalldest
  128.     (askdir
  129.         (prompt #msg-pcalldest PhoneCall)
  130.         (help @askdir-help)
  131.         (default @default-dest)
  132.     )
  133. )
  134.  
  135. (set pcalldir           (tackon pcalldest "PhoneCall"))
  136. (set docdir             (tackon pcalldir #msg-docdir))
  137. (set @default-dest      pcalldir)
  138. (set pcalldata          (tackon pcalldir "PhoneCall.pb"))
  139. (set oldvernum 0)
  140.  
  141. ;**
  142. ;**  Create directory/Check if there is already a copy installed
  143. ;**
  144.  
  145. (complete 10)
  146.  
  147. (set extype (exists pcalldir))
  148. (if (= extype 1) (abort #msg-abort))
  149. (if (= extype 2)
  150.     (
  151.         (if (exists (tackon pcalldir "PhoneCall"))
  152.             (
  153.                 (set oldvernum (getversion (tackon pcalldir "PhoneCall")))
  154.                 (message #msg-existMsg)
  155.             )
  156.         )
  157.     )
  158.     (makedir pcalldir)
  159. )
  160. (makedir docdir (infos))
  161.  
  162. (copyfiles
  163.      (source "def_Icons/PhoneCall.info")
  164.      (dest pcalldest)
  165.      (files)
  166. )
  167.  
  168. (set oldver (/ oldvernum 65536))
  169. (set oldrev (- oldvernum (* oldver 65536) ) )
  170.  
  171. (complete 20)
  172.  
  173.  (set destdir
  174.     (askdir (prompt #msg-destdir)
  175.                     (help @askdir-help)
  176.                     (default pcalldir)
  177.     )
  178.  )
  179.  
  180. (complete 25)
  181.  
  182. (copyfiles
  183.     (prompt (#msg-copypc destdir))
  184.     (source "PhoneCall")
  185.     (dest destdir)
  186.     (files)
  187. )
  188.  
  189. (complete 30)
  190.  
  191. (set iconchoice
  192.     (askchoice
  193.         (prompt #msg-askicon)
  194.         (choices #msg-icon1
  195.                  #msg-icon2
  196.                  #msg-icon3
  197.                  #msg-icon4
  198.                  #msg-icon5)
  199.         (help @askoptions-help)
  200.     )
  201. )
  202.  
  203. (complete 35)
  204.  
  205. (if (= iconchoice 0)
  206.     (
  207.         (copyfiles
  208.             (prompt (#msg-installIcon #msg-icon1))
  209.             (source "def_Icons/PhoneCall_MWB.info")
  210.             (newname "PhoneCall.info")
  211.             (dest destdir)
  212.             (help @copyfiles-help)
  213.             (files)
  214.         )
  215.     )
  216. )
  217.  
  218. (complete 35)
  219.  
  220. (if (= iconchoice 1)
  221.     (
  222.         (copyfiles
  223.                 (prompt (#msg-installIcon #msg-icon2))
  224.                 (source "def_Icons/PhoneCall_JODEL.info")
  225.                 (newname "PhoneCall.info")
  226.                 (dest destdir)
  227.                 (help @copyfiles-help)
  228.                 (files)
  229.         )
  230.     )
  231. )
  232.  
  233. (complete 35)
  234.  
  235. (if (= iconchoice 2)
  236.     (
  237.         (copyfiles
  238.                 (prompt (#msg-installIcon #msg-icon3))
  239.                 (source "def_Icons/PhoneCall_ROM2.info")
  240.                 (newname "PhoneCall.info")
  241.                 (dest destdir)
  242.                 (help @copyfiles-help)
  243.                 (files)
  244.         )
  245.     )
  246. )
  247.  
  248. (complete 35)
  249.  
  250. (if (= iconchoice 3)
  251.     (
  252.         (copyfiles
  253.                 (prompt (#msg-installIcon #msg-icon4))
  254.                 (source "def_Icons/PhoneCall_ROM1.info")
  255.                 (newname "PhoneCall.info")
  256.                 (dest destdir)
  257.                 (help @copyfiles-help)
  258.                 (files)
  259.         )
  260.     )
  261. )
  262.  
  263. (complete 35)
  264.  
  265. (if (= iconchoice 4)
  266.     (
  267.         (copyfiles
  268.                 (prompt (#msg-installIcon #msg-icon5))
  269.                 (source "def_Icons/PhoneCall_NEWICON.info")
  270.                 (newname "PhoneCall.info")
  271.                 (dest destdir)
  272.                 (help @copyfiles-help)
  273.                 (files)
  274.         )
  275.     )
  276. )
  277.  
  278. (complete 40)
  279.  
  280. (set docchoice
  281.     (askoptions
  282.         (prompt #msg-askdoc)
  283.         (choices #msg-guidedoc
  284.                  #msg-dvidoc
  285.                  #msg-txtdoc)
  286.         (help @askoptions-help)
  287.     )
  288. )
  289.  
  290. (complete 50)
  291.  
  292. (if (<> 0 (BITAND docchoice 1))
  293.     (
  294.         (copyfiles
  295.             (prompt #msg-installguide)
  296.             (source "Document/deutsch/PhoneCall.guide")
  297.             (dest docdir)
  298.             (help @copyfiles-help)
  299.             (infos)
  300.         )
  301.     )
  302. )
  303.  
  304. (complete 55)
  305.  
  306. (if (<> 0 (BITAND docchoice 2))
  307.     (
  308.         (copyfiles
  309.                 (prompt #msg-installdvi)
  310.                 (source "Document/deutsch/PhoneCall.DVI")
  311.                 (dest docdir)
  312.                 (help @copyfiles-help)
  313.                 (infos)
  314.         )
  315.     )
  316. )
  317.  
  318. (complete 60)
  319.  
  320. (if (<> 0 (BITAND docchoice 4))
  321.     (
  322.         (copyfiles
  323.                 (prompt #msg-installtxt)
  324.                 (source "Document/deutsch/PhoneCall.dok")
  325.                 (dest docdir)
  326.                 (help @copyfiles-help)
  327.                 (infos)
  328.         )
  329.     )
  330. )
  331.  
  332. (complete 70)
  333.  
  334. (if (AND (NOT (= (getassign "Locale") "")) (exists "libs:locale.library"))
  335.  (
  336.     (set language
  337.        (askoptions
  338.          (prompt #msg-asklanguage)
  339.          (choices #msg-language0
  340.                   #msg-language1
  341.                   #msg-language2)
  342.          (help #msg-languagehelp)
  343.        )
  344.     )
  345.  
  346.   (if (IN language 1)
  347.     (
  348.        (copyfiles
  349.           (source "Catalogs/deutsch/PhoneCall.catalog")
  350.           (dest "Locale:catalogs/deutsch")
  351.           (prompt #msg-installlaguage1)
  352.        )
  353.     )
  354.   )
  355.  
  356.   (if (IN language 2)
  357.     (
  358.        (copyfiles
  359.           (source "Catalogs/franτais/PhoneCall.catalog")
  360.           (dest "Locale:catalogs/franτais")
  361.           (prompt #msg-installlaguage2)
  362.        )
  363.     )
  364.   )
  365.  )
  366. )
  367.  
  368. (complete 80)
  369.  
  370. (if (AND (NOT (= (getassign "Help") "")) (exists "libs:locale.library"))
  371.   (
  372.     (set helpfile
  373.        (askoptions
  374.          (prompt #msg-askonline)
  375.          (choices #msg-language1)
  376.          (help #msg-onlinehelp)
  377.      )
  378.   )
  379.  
  380.   (if (IN helpfile 0)
  381.     (
  382.        (copyfiles
  383.           (source "Document/deutsch/PhoneCall.guide")
  384.           (dest "Locale:help/deutsch")
  385.           (prompt #msg-installonline1)
  386.        )
  387.     )
  388.  
  389.   )
  390.  )
  391. )
  392.  
  393. (complete 85)
  394.  
  395.         (if(askbool
  396.                 (prompt (#msg-asktextfield myver myrev currentver currentrev))
  397.                 (help #msg-textfieldhelp )
  398.                 (default 1))
  399.                 (copyfiles
  400.                         (prompt #msg-installtextfield)
  401.                         (source "Classes/Gadgets/TextField.gadget")
  402.                         (dest   "SYS:Classes/Gadgets/")
  403.                         (files)
  404.                 )
  405.         )
  406.  
  407. (complete 90)
  408.  
  409. (set exdata (exists pcalldata))
  410.  
  411. (if (<> exdata 1)
  412.    (copyfiles
  413.            (prompt #msg-installpb)
  414.            (source "PhoneCall.pb")
  415.            (dest   pcalldir)
  416.            (files)
  417.    )
  418. )
  419.  
  420. (complete 100)
  421. (exit #msg-bye)
  422.  
  423.